home *** CD-ROM | disk | FTP | other *** search
/ Future Workshop / Future Workshop.iso / utility / cenvid / enviasks.bat < prev    next >
Encoding:
DOS Batch File  |  1994-08-16  |  3.3 KB  |  94 lines
  1. @echo off
  2. REM *************************************************************
  3. REM *** EnviAsks.bat - Some demonstrations of EnviAsk.bat and ***
  4. REM *** ver.1          GetUKey.                               ***
  5. REM *************************************************************
  6.  
  7. REM ***********************************************************
  8. REM *** ASK USER IF THEY WANT TO CONTINUE USING GETUKEY.CMM ***
  9. REM ***********************************************************
  10. ECHO EnviAsks: Demonstrate some methods of getting user input using
  11. ECHO           the GetUKey and the EnviAsks tools.
  12. CEnvi GetUKey Do you want to try this demo? (Y/N) yn
  13. IF NOT "%UKEY%"=="Y" GOTO ASK_NO_MORE
  14.  
  15. REM ******************************************
  16. REM *** USE ENVIASK TO GET USERS FULL NAME ***
  17. REM ******************************************
  18. ECHO  
  19. CALL EnviAsk FNAME 1 20 /Prompt "What is your first name?" /Mask Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  20. CALL EnviAsk LNAME 1 20 /Prompt "What is your last name?" /Mask Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  21. CALL EnviAsk M_INIT 0 1 /Prompt "Middle Initial (optional) ?" /Mask A
  22.  
  23. REM *****************************************
  24. REM *** COMBINE NAME PARTS INTO FULL NAME ***
  25. REM *****************************************
  26. ECHO  
  27. SET FULLNAME=%FNAME%
  28. IF NOT "%M_INIT%"=="" CEnvi sprintf(FULLNAME,"%%s %%s",FULLNAME,M_INIT);
  29. CEnvi strcat(FULLNAME," "); strcat(FULLNAME,LNAME);
  30. SET FNAME=
  31. SET LNAME=
  32. SET M_INIT=
  33. ECHO Thanks, %FULLNAME%, for giving your name.
  34.  
  35. REM ***************************
  36. REM *** TOP-SECRET PASSWORD ***
  37. REM ***************************
  38. ECHO  
  39. CALL EnviAsk SECRET 1 50 /HIDE /Prompt "Tell me a top-secret password?"
  40. ECHO I know a secret. I know a secret.
  41. SET SECRET=
  42.  
  43. REM *********************************************
  44. REM *** Pick a random number between 1 and 10 ***
  45. REM *********************************************
  46. CEnvi srand(); MY_NUMBER = (rand() %% 10) + 1
  47.  
  48. REM *********************************
  49. REM *** Ask user to pick a number ***
  50. REM *********************************
  51. ECHO  
  52. ECHO I'm thinking of a number between 1 and 10 (inclusive).
  53. CALL EnviAsk YOUR_NUMBER 1 10 /INT /Prompt "What is your guess (1-10, up or down)?"
  54.  
  55. REM ***************************************
  56. REM *** Compare numbers and tell result ***
  57. REM ***************************************
  58. ECHO  
  59. ECHO My number was %MY_NUMBER%.  You guessed %YOUR_NUMBER%.
  60. IF %MY_NUMBER%==%YOUR_NUMBER% ECHO GOOD GUESS!
  61. IF %MY_NUMBER%==%YOUR_NUMBER% GOTO POP_QUIZ
  62. CEnvi "if (YOUR_NUMBER < MY_NUMBER) return(0); else return(1);"
  63. IF ERRORLEVEL 1 ECHO TOO HIGH!
  64. IF NOT ERRORLEVEL 1 ECHO TOO LOW!
  65.  
  66.  
  67. :POP_QUIZ
  68. SET MY_NUMBER=
  69. SET YOUR_NUMBER=
  70. REM ******************************************
  71. REM *** Force user to enter the CEnvi name ***
  72. REM ******************************************
  73. ECHO  
  74. ECHO Test time.  I hope you've been paying attention.  Good luck.
  75. :QUESTION
  76. SET ANSWER=
  77. ECHO  
  78. ECHO You have 20 seconds to answer this question: Using 5 letters, what is your
  79. CALL EnviAsk ANSWER 5 5 /Mask AAaaa /TIME 20 /Prompt "favorite new DOS tool? (hint: CEnvi)"
  80. IF "%ANSWER%"=="CEnvi" GOTO GOOD_ANSWER
  81. ECHO Wait! Wrong answer.  Let's try this again.
  82. GOTO QUESTION
  83.  
  84. :GOOD_ANSWER
  85. ECHO  
  86. SET ANSWER=
  87. ECHO  
  88. ECHO Good answer.  You're sure smart!
  89. ECHO Bye.
  90.  
  91. :ASK_NO_MORE
  92. SET FULLNAME=
  93. SET UKEY=
  94.